﻿#Region "Liste des champs en sortie d'un traitement"
''' <summary>
''' Classe de base représentant les champs disponibles en sortie d'un traitement (requête, table, traitement personnalisés)
''' </summary>
''' <remarks></remarks>
Public Class baseListeChampsSortie
    Inherits ObservableDictionary(Of String, Correspondance)
    ''' <summary>
    ''' 
    ''' </summary>
    ''' <remarks></remarks>
    Friend Sub addCorresp(ByVal corresp As Correspondance)
        Add(corresp.description, corresp)
        'Par défaut, invalider tous les traitements dépendants de cette requête
        Dim eventListeChamps As New listeChampsEventArgs(corresp, listeChampsEventArgs.listeChampsEventType.ajoutChamps)
        RaiseEvent AjoutChamps(Me, eventListeChamps)
    End Sub
    ''' <summary>
    ''' 
    ''' </summary>
    ''' <remarks></remarks>
    Friend Sub removeCorresp(ByVal descrCorresp As String)
        Dim correspSuppr As Correspondance = Item(descrCorresp)
        Remove(descrCorresp)
        Dim eventListeChamps As New listeChampsEventArgs(correspSuppr, listeChampsEventArgs.listeChampsEventType.suppressionChamps)
        RaiseEvent SuppressionChamps(Me, eventListeChamps)
    End Sub

    Public Event AjoutChamps As listeChampsEventHandler
    Public Event SuppressionChamps As listeChampsEventHandler
End Class
#End Region
